home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Text / WASTE / WASTE 1.1.2 Distribution / Pseudo-UPI for THINK Pascal / Folders.p < prev    next >
Encoding:
Text File  |  1995-10-12  |  1.6 KB  |  43 lines  |  [TEXT/PJMM]
  1. unit Folders;
  2.  
  3. { Pascal Interface to the Macintosh Libraries }
  4.  
  5. { Copyright © Apple Computer Inc. }
  6. { All Rights Reserved }
  7.  
  8. { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
  9.  
  10. interface
  11.  
  12.     const
  13.         kOnSystemDisk = $8000;
  14.         kCreateFolder = true;
  15.         kDontCreateFolder = false;
  16.         kSystemFolderType = 'macs';                        { the system folder }
  17.         kDesktopFolderType = 'desk';                        { the desktop folder; objects in this folder show on the desk top. }
  18.         kTrashFolderType = 'trsh';                        { the trash folder; objects in this folder show up in the trash }
  19.         kWhereToEmptyTrashFolderType = 'empt';                        { the "empty trash" folder; Finder starts empty from here down }
  20.         kPrintMonitorDocsFolderType = 'prnt';                        { Print Monitor documents }
  21.         kStartupFolderType = 'strt';                        { Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here }
  22.         kAppleMenuFolderType = 'amnu';                        { Finder objects to put into the Apple menu go here }
  23.         kControlPanelFolderType = 'ctrl';                        { Control Panels go here (may contain INITs) }
  24.         kExtensionFolderType = 'extn';                        { Finder extensions go here }
  25.         kFontsFolderType = 'font';                        { Fonts go here }
  26.         kPreferencesFolderType = 'pref';                        { preferences for applications go here }
  27.         kTemporaryFolderType = 'temp';
  28.  
  29.     function FindFolder (vRefNum: INTEGER;
  30.                                     folderType: OSType;
  31.                                     createFolder: BOOLEAN;
  32.                                     var foundVRefNum: INTEGER;
  33.                                     var foundDirID: LONGINT): OSErr;
  34.     inline
  35.         $7000, $A823;
  36.  
  37.     function ReleaseFolder (vRefNum: INTEGER;
  38.                                     folderType: OSType): OSErr;
  39.     inline
  40.         $700B, $A823;
  41.  
  42. implementation
  43. end.